Shareware Overload Trio 2/Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO/dir26/epi601_2.zip/FILES07.EXE/FIRST2.CHK

Text File | 1994-08-22 | 1KB | 83 lines

LASTNAME
  BEFORE ENTRY
    IF ID = 5 then
      HELP FIRSTHLP.HLP 22 10 8
    else
      HELP FIRSTHLP.HLP 24 10 8
  END
  If (LASTNAME = .) and (ID = 5) then
    GOTO CITY
  ENDIF
  END
END

CITY
  BEFORE ENTRY
    IF LASTNAME = . then
       HELP FIRSTHLP.HLP 15 5 10
    ENDIF
    HELP FIRSTHLP.HLP 16 10 10
  END
  LEGAL
    Altoona
    Hargeisa
    Rangoon
  END
END

ZIP
  BEFORE ENTRY
    HELP FIRSTHLP.HLP 17 10 12
  END
  RANGE "00000" "99999"
END

AGE
  BEFORE ENTRY
     HELP FIRSTHLP.HLP 18 5 15
  END
  RANGE 000 120
  MUSTENTER
END

SEX
  BEFORE ENTRY
    HELP FIRSTHLP.HLP 20 10 12
  END
  COMMENT LEGAL
    M Male
    F Female
    U Unknown
  END
  Type Comment +0 +0 16
END

DISEASE
  BEFORE ENTRY
       HELP FIRSTHLP.HLP 19 25 12
  END
  CODEFIELD DISCODE
  CODES
    "HEPATITIS A" 100
    "HEPATITIS B" 101
    "HEPATITIS C" 102
  END
  GOTO DATE
END

DISCODE
  CODEFIELD DISEASE
END

DATE
  BEFORE ENTRY
  END
END

FOODHANDLE
  BEFORE ENTRY
       HELP FIRSTHLP.HLP 21 10 15
  END
END